10 REM COURTESY OF HACKER'S HARDWARE
15 REM W FOSSETT  -  L.&WP.050485
20 :
25 REM THIS PROGRAM CREATES A FILE
30 REM ON DISKETTE THAT WILL WRITE
35 REM PROTECT OR UN-WRITE PROTECT
40 REM THE DISKETTE. USE AS FOLLOWS:
45 :
50 REM   OPEN15,8,15,"&WP":CLOSE15
55 :
60 OPEN8,8,8,"&WP,P,W"
65 FORI=1TO29:READJ:PRINT#8,CHR$(J);
70 NEXTI:CLOSE8
75 DATA 0,6,25,32,66,208
80 DATA 173,2,7,73,4,141
85 DATA 2,7,141,166,7,169
90 DATA 65,141,1,1,32,7
95 DATA 239,76,66,208,25
99 END